home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_10339.txt < prev    next >
Text File  |  1990-10-02  |  2KB  |  87 lines
  1. -- card: 10339 from stack: in
  2. -- bmap block id: 4201
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: bunk
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global position
  9.   if position is "open cell" then
  10.     put "This is a hard steel bunk, just like the one that you"& " sleep on." into field "info"
  11.   else
  12.     put "This is the hard steel bunk that you sleep on." into field "info"
  13.   end if
  14.   pass opencard
  15. end opencard
  16.  
  17.  
  18. -- part 4 (button)
  19. -- low flags: 00
  20. -- high flags: A003
  21. -- rect: left=161 top=302 right=323 bottom=192
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: OK
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   global filter
  33.   if filter is "yes" then
  34.     beep
  35.     exit mouseup
  36.   end if
  37.   global donteat
  38.   get bkgnd field "do what"
  39.   if the number of words in it > 1 then
  40.     beep 2
  41.     oneword
  42.     exit mouseup
  43.   end if
  44.   if it contains "sit" or it contains "lay" or it contains "lie" or it contains "go" then
  45.     put "You lie down on the hard steel bunk, but soon get"& " back up with your muscles aching." into field "info"
  46.     exit mouseup
  47.   end if
  48.   if it contains "close" then
  49.     put "It is already closed." into field "info"
  50.     exit mouseup
  51.   end if
  52.   if it contains "examine" or it contains "look" then
  53.     send "opencard" to this card
  54.     exit mouseup
  55.   end if
  56.   if it contains "hit" or it contains "kick" or it contains "punch" then
  57.     ouch
  58.     exit mouseup
  59.   end if
  60.   if it contains "get" or it contains "move" or it contains "pull" then
  61.     put "The bunk is securely bolted to the floor." into field "info"
  62.     exit mouseup
  63.   end if
  64.   if it contains "eat" or it contains "consume" then
  65.     put donteat into field "info"
  66.     exit mouseup
  67.   end if
  68.   if it is "" then
  69.     put "Speak up.  I can't hear you." into field "info"
  70.     exit mouseup
  71.   end if
  72.   idunno
  73. end mouseUp
  74.  
  75. on cont
  76. end cont
  77.  
  78.  
  79.  
  80.  
  81. -- part contents for background part 2
  82. ----- text -----
  83. What would you like to do with the bunk?
  84.  
  85. -- part contents for background part 7
  86. ----- text -----
  87. Bunk